#!/usr/bin/perl

use GDBM_File;

dbmopen(%entries,"$ARGV[0]",0666) || die "can't open";
foreach $key (keys %entries)
{
	print $key." => ".$entries{$key}."\n";
}
dbmclose(%entries)
